home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 December / Ahoy_Magazine_88-12_1988_Double_L.d64 / Pocus Demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  39 lines
  1. 10 poke53280,0:poke53281,0:print"[147][154]";:poke2,100
  2. 14 dimv$(24):v$(0)=""
  3. 15 fori=1to24:v$(i)=v$(i-1)+"":next
  4. 16 b$="":fori=1to39:b$=b$+" ":next:b$=""+b$
  5. 20 fori=1to71:print"screen pocus! ";:next:sys49152
  6. 52 print"[147]"v$(8);
  7. 53 printtab(14)"              "
  8. 55 printtab(14)"    screen    "
  9. 56 printtab(14)"    pocus!    "
  10. 57 printtab(14)"              "
  11. 58 printtab(14)"    *demo*    "
  12. 59 printtab(14)"              "
  13. 60 printv$(23)tab(13)"press any key..."
  14. 65 fori=1to700:next
  15. 70 sys49155
  16. 90 geta$:ifa$=""then90
  17. 100 poke2,1:sys49152:print"[147]";
  18. 120 sys49155:sys49152
  19. 130 print"[147][158]"v$(7)tab(6)"fade speed may be controlled!"
  20. 140 printv$(10)tab(6)"screens may fade out/in"
  21. 150 printv$(11)tab(6)"simultaneously!"
  22. 160 printv$(14)tab(6)"all for  neat [146] presentations!"
  23. 170 poke53280,6:poke53281,6:sys49155
  24. 181 printv$(23)tab(12)"press any key..."
  25. 182 geta$:ifa$=""then182
  26. 190 x=1:forj=1to101step50:poke2,j:print"[147]":sys49152:print"[147]";
  27. 200 fori=1to120:print" screen ";:next
  28. 220 gosub300:sys49155:sys49152:print"[147]";
  29. 230 fori=1to120:print" pocus  ";:next
  30. 250 gosub300:sys49155:sys49152:print"[147]";
  31. 260 fori=1to120:print" magic! ";:next
  32. 270 gosub300:sys49155:x=x+1:fordy=1to500:nextdy,j
  33. 280 poke2,70:sys49152:print"[147]";:fori=1to23:printb$:next
  34. 290 printv$(10)tab(7)"press any key to restart"
  35. 292 sys49155:sys49152:print"[147]"
  36. 295 geta$:ifa$=""then295
  37. 296 poke53280,0:poke53281,0:sys49155:run
  38. 300 printv$(12)tab(16)"speed="mid$(str$(j),2):return
  39.